(define (fizz limit n)
        (define ns "")
        (if 
            (< n limit)
            (cons ns
                  (cons
                        (app n)
                        (fizz limit (+ n 1))))
             ns
            ))

(define (app x)
        (if 
           (and 
                (= (remainder x 3) 0) 
                (= (remainder x 5) 0))
            (cons x "Fizz Buzz")
            (if 
               (= 
                  (remainder x 3) 0) 
               (cons x "Fizz")
               (if 
                   (= 
                      (remainder x 5) 0) 
                   (cons x "Buzz")
                   x))))

(fizz 16 1)
